home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 November / CHIP Kasım 1997.iso / ARACLAR / TER500 / 500TER._XE / SCRIPT.EXE / KEYBOARD.INC < prev    next >
Encoding:
Text File  |  1995-11-15  |  3.3 KB  |  148 lines
  1. % -----------------------------------------------------------------------------
  2. % Keyboard Include file (addition)                     *TERMINATE PRESCRIPTION*
  3. % -----------------------------------------------------------------------------
  4. %
  5. %  Version          : 1.02
  6. %  Filename         : KEYBOARD.INC
  7. %  Company          : None
  8. %  Programmer       : Dave Wapstra
  9. %  Module created   : 07 Aug 1995
  10. %  Latest revision  : 03 Nov 1995
  11. %  Language/version : Terminate Prescription 1.00
  12. %  Remarks          : Keyboard keycodes and functions
  13. %  Credits          : Thanks to Dennis Janssen for the KeyShift entries
  14. %
  15. % -----------------------------------------------------------------------------
  16.  
  17. %
  18. % KEYBOARD.INC
  19. %
  20. % Keycodes and keyboard functions
  21. %
  22. % Dave Wapstra
  23. % 7 Aug. 1995
  24. %
  25.  
  26. % Normal keys
  27.  
  28. Set KeyEsc = 27
  29. Set KeyEnter = 13
  30.  
  31. Set KeyA = 97
  32. Set KeyB = 98
  33. Set KeyC = 99
  34. Set KeyD = 100
  35. Set KeyE = 101
  36. Set KeyF = 102
  37. Set KeyG = 103
  38. Set KeyH = 104
  39. Set KeyI = 105
  40. Set KeyJ = 106
  41. Set KeyK = 107
  42. Set KeyL = 108
  43. Set KeyM = 109
  44. Set KeyN = 110
  45. Set KeyO = 111
  46. Set KeyP = 112
  47. Set KeyQ = 113
  48. Set KeyR = 114
  49. Set KeyS = 115
  50. Set KeyT = 116
  51. Set KeyU = 117
  52. Set KeyV = 118
  53. Set KeyW = 119
  54. Set KeyX = 120
  55. Set KeyY = 121
  56. Set KeyZ = 122
  57.  
  58. % Function Keys
  59.  
  60. Set KeyF1 = 315
  61. Set KeyF2 = 316
  62. Set KeyF3 = 317
  63. Set KeyF4 = 318
  64. Set KeyF5 = 319
  65. Set KeyF6 = 320
  66. Set KeyF7 = 321
  67. Set KeyF8 = 322
  68. Set KeyF9 = 323
  69. Set KeyF10 = 324
  70. Set KeyF11 = 389
  71. Set KeyF12 = 390
  72.  
  73. % Arrow Keys
  74. Set KeyUp = 328
  75. Set KeyDown = 336
  76. Set KeyLeft = 331
  77. Set KeyRight = 333
  78.  
  79. %==========================================================================
  80. % Keyboard scancodes for StuffKey Function          (Dave Wapstra 03-11-95)
  81. %==========================================================================
  82.  
  83. Set ScanKeyEnter = 7181
  84. Set ScanKeyEscape = 283
  85.  
  86. % Function keys
  87.  
  88. Set ScanKeyF10 = 17408
  89. Set ScanKeyF11 = 34048
  90. Set ScanKeyF12 = 34304
  91.  
  92. Set ScanKeyShiftF10 = 23808
  93. Set ScanKeyShiftF11 = 34560
  94. Set ScanKeyShiftF12 = 34816
  95.  
  96. Set ScanKeyCtrlF10 = 26368
  97. Set ScanKeyCtrlF11 = 35072
  98. Set ScanKeyCtrlF12 = 35328
  99.  
  100. Set ScanKeyAltF10 = 28928
  101. Set ScanKeyAltF11 = 35584
  102. Set ScanKeyAltF12 = 35840
  103.  
  104. %==========================================================================
  105. % Stuff functions                                   (Dave Wapstra 03-11-95)
  106. %==========================================================================
  107.  
  108. Function StuffKey(KeyVal)
  109.   % AL returns:
  110.   % 0 = Succes
  111.   % 1 = Keyboard buffer is full
  112.   Set Return = Interrupt(22,1280,0,KeyVal,0,0,0,0,0)
  113.   If GrabWord(Return,2) = 0
  114.     Set StuffKey = 0
  115.   Else
  116.     Set StuffKey = 1
  117.   EndIf
  118. EndFunc StuffKey
  119.  
  120. Function StuffChar(KeyChar)
  121.   % AL returns:
  122.   % 0 = Succes
  123.   % 1 = Keyboard buffer is full
  124.   Set KeyVal = Ord(KeyChar)
  125.   Set Return = Interrupt(22,1280,0,KeyVal,0,0,0,0,0)
  126.   If GrabWord(Return,2) = 0
  127.     Set StuffChar = 0
  128.   Else
  129.     Set StuffChar = 1
  130.   EndIf
  131. EndFunc StuffChar
  132.  
  133. Function StuffStr(KeyStr)
  134.   % AL returns:
  135.   % 0 = Succes
  136.   % 1 = Keyboard buffer is full
  137.   For x,1,Length(KeyStr),1
  138.     Set KeyVal = Ord(Copy(KeyStr,x,1))
  139.     Set Return = Interrupt(22,1280,0,KeyVal,0,0,0,0,0)
  140.     If GrabWord(Return,2) = 0
  141.       Set StuffStr = 0
  142.     Else
  143.       Set StuffStr = 1
  144.     EndIf
  145.   Next
  146. EndFunc StuffStr
  147.  
  148.